home *** CD-ROM | disk | FTP | other *** search
/ MaxiMac 1999 August / MaxiMac 93.iso / charm / PRG.DXR / 00003_Majeur.ls < prev    next >
Encoding:
Text File  |  1999-04-20  |  1.3 KB  |  75 lines
  1. global Verif, Gretour, GcptHelp, Ginit, GpageRetour, Ginitcharme, Gverif
  2.  
  3. on exitFrame
  4.   rollup(3)
  5.   rollup(5)
  6.   action_sprite(4, 1)
  7.   Verif_saisie()
  8.   affiche_abcd100()
  9.   go(the frameLabel)
  10. end
  11.  
  12. on Verif_saisie
  13.   if Verif <> "verif" then
  14.     return 
  15.   end if
  16.   set Verif to EMPTY
  17.   set Texte to the text of member "Oui_Non"
  18.   if Texte contains "oui" then
  19.     set GcptHelp to 1
  20.     set Gretour to the frameLabel
  21.     set Ginit to 1
  22.     set GpageRetour to "charme"
  23.     set Gverif to 1
  24.     play frame "hard"
  25.   end if
  26.   if Texte contains "non" then
  27.     set Ginitcharme to 1
  28.     play frame "charme"
  29.   end if
  30.   set the text of member "Oui_Non" to EMPTY
  31. end
  32.  
  33. on affiche_abcd100
  34.   if the timer < 30 then
  35.     return 
  36.   end if
  37.   startTimer()
  38.   if the visible of sprite 30 = 1 then
  39.     action_sprite(30, 0)
  40.   else
  41.     action_sprite(30, 1)
  42.   end if
  43. end
  44.  
  45. on mouseDown
  46.   if rollOver(3) then
  47.     set Verif to "verif"
  48.   end if
  49.   retour_page_charme()
  50. end
  51.  
  52. on retour_page_charme
  53.   if rollOver(5) = 0 then
  54.     return 
  55.   end if
  56.   set Ginitcharme to 1
  57.   play frame "charme"
  58. end
  59.  
  60. on rollup num
  61.   if rollOver(num) = 0 then
  62.     action_sprite(num, 0)
  63.   else
  64.     action_sprite(num, 1)
  65.   end if
  66. end
  67.  
  68. on action_sprite num, type
  69.   if the visible of sprite num = type then
  70.     return 
  71.   end if
  72.   set the visible of sprite num to type
  73.   updateStage()
  74. end
  75.